home *** CD-ROM | disk | FTP | other *** search
/ Best of www.BestZips.com (Collector's Edition) / Best of WWW.BESTZIPS.COM Collector's Edition (JCSM Shareware) (JCS Marketing).ISO / tutorial / adatu311.zip / FIB.ANS (.png) < prev    next >
ANSI Art File  |  1996-01-10  |  261b  |  640x160  |  1-bit (2 colors)
Labels: text | screenshot | font
OCR: Our solution to Outside Assignment 4 (in FIB.ANS): separate (Fibtest) function Fib(N : in Positive) return Positive is Answer : Positive := 1; begin if N > 2 then Answer := Fib(N - 1) + Fib(N - 2); end if ; return Answer; end Fib;